home *** CD-ROM | disk | FTP | other *** search
/ Trouble & Attitude 4 / Trouble and Attitude - Issue 04.iso / mac / DATA / MOVIES / COMMON.Cxt / 00077_Field_Section Intro Page Script SAMPLE.txt < prev    next >
Text File  |  1997-01-14  |  4KB  |  156 lines
  1.  
  2. --
  3. -- PORTFOLIO section script
  4. -- "intro" page script
  5. -- initialization and introduction
  6. --
  7.  
  8. on enterFrame
  9.   
  10.   global gMovieName, gMovie, gSoloMode
  11.   global gNextIcon, gPreIcon, gBackIcon, gControlIcon, gIndexIcon, gFirstIcon
  12.   global gButton1, gButton2, gButton3
  13.   global gLocalSound
  14.   global gMusicOn, gCaptionOn
  15.   global gCurPath, gNavMode
  16.   global gControlPanel, gHotText
  17.   global gMap1Icon, gMap2Icon
  18.   
  19.   -- Set up globals for this section 
  20.   
  21.   
  22.   set gNavMode = "intro"
  23.   
  24.   if voidP("gLocalSound") then set gLocalSound = FALSE
  25.   
  26.   if voidP("gMusicOn") then set gMusicOn = TRUE
  27.   if voidP("gCaptionsOn") then set gCaptionsOn = TRUE
  28.   
  29.   if voidP("gSoloMode") then set gSoloMode = TRUE
  30.   if voidP("gMovieName") then  set gMovieName = "*"
  31.   
  32.   if voidP(gCurPath) then
  33.     -- set up globals normally set up in START00.DIR
  34.     set gCurPath = "Breaking the Waves:Attitude Master:" -- fragile this path for test only
  35.   end if
  36.   
  37.   -- make sure the control panel is current in every way
  38.   
  39.   if objectP(gControlPanel) then
  40.     tell window "Control Panel"
  41.       setIconStatus "music", gMusicOn
  42.       setIconStatus "caption", gCaptionOn
  43.     end tell
  44.   end if
  45.   
  46.   -- Set up the sprite/channel relationship for this section 
  47.   
  48.   -- Intro Sprites
  49.   
  50.   set gButton1 = 5
  51.   set gButton2 = 6
  52.   set gIndexIcon = 8
  53.   set gControlIcon = 9
  54.   
  55.   -- Chapter Sprites
  56.   set gNextIcon = 10
  57.   set gPreIcon = 11
  58.   set gHotText = 12
  59.   
  60.   if voidP("gLocalSound") then
  61.     set gLocalSound = FALSE
  62.   else
  63.     set gLocalSound = FALSE
  64.   end if
  65.   
  66.   puppetsprite gIndexIcon TRUE
  67.   puppetsprite gControlIcon TRUE
  68.   puppetsprite gButton1 TRUE
  69.   puppetsprite gButton2 TRUE
  70.   set the member of sprite gButton1 to member "button1-icon"
  71.   set the member of sprite gButton2 to member "button2-icon"
  72.   set the member of sprite gControlIcon to member "control-icon"
  73.   set the member of sprite gIndexIcon to member "index-icon"
  74.   
  75.   if rollOver(gButton1) then
  76.     set the member of sprite gButton1 to member "button1-icon-hot"
  77.     set the text of member "Message Text" to  "Jean Mahaux Portfolio..."
  78.   else if rollOver(gButton2) then
  79.     set the member of sprite gButton2 to member "button2-icon-hot"
  80.     set the text of member "Message Text" to  "Michael Segal Portfolio..."
  81.   else if rollOver(gControlIcon) then
  82.     set the member of sprite gControlIcon to member "control-icon-hot"
  83.     set the text of member "Message Text" to  "Reveal the control panel"
  84.   else if rollOver(gIndexIcon) then
  85.     set the member of sprite gIndexIcon to member "index-icon-hot"
  86.     set the text of member "Message Text" to  "Return to Table of Contents"
  87.   else
  88.     set the text of member "Message Text" to  "Click on one of photos to view a series..."
  89.   end if
  90.   
  91.   dontPassEvent
  92.   
  93. end enterFrame
  94.  
  95. -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  96.  
  97. on exitFrame 
  98.   
  99.   global gMovieName, gMovie, gSoloMode
  100.   global gNextIcon, gPreIcon, gBackIcon, gIndexIcon, gFirstIcon
  101.   global gButton1, gButton2, gButton3
  102.   global gTest
  103.   
  104.   if gSoloMode = FALSE then 
  105.     keepmusic
  106.   end if
  107.   
  108.   set gTest = 1
  109.   go to the frame 
  110.   
  111.   dontPassEvent
  112.   
  113. end exitFrame
  114.  
  115. -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  116.  
  117. on MouseUp
  118.   
  119.   global gMovieName, gMovie, gSoloMode
  120.   global gNextIcon, gPreIcon, gBackIcon, gIndexIcon, gFirstIcon, gControlIcon
  121.   global gButton1, gButton2, gButton3
  122.   
  123.   set destination = "*"
  124.   
  125.   if the ClickOn = gButton1 then
  126.     set destination = "C2"
  127.   end if
  128.   
  129.   if the ClickOn = gButton2 then
  130.     set destination =  "C1"
  131.   end if
  132.     
  133.   if the ClickOn = gIndexIcon then
  134.     set destination = "index"
  135.   end if
  136.   
  137.   if the ClickOn = gControlIcon then
  138.     openControlPanel
  139.   end if
  140.   
  141.   
  142.   if destination <> "*" then
  143.     puppetsprite gButton1 FALSE
  144.     puppetsprite gButton2 FALSE
  145.     puppetsprite gIndexIcon FALSE
  146.     puppetsprite gControlIcon FALSE
  147.     if destination = "index" then
  148.       go to frame "Index" of movie "INDEX.DIR"
  149.     else
  150.       go to frame destination
  151.     end if
  152.   else
  153.     -- alert "Internal Error: I don't know where to go." -- we can't get here
  154.   end if
  155.   
  156. end MouseUp